home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)ta.d64 / stomp.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  93 lines
  1. 5 CLR:PRINT"[147]":GOSUB1000
  2. 10 V=53248:POKEV+21,255:L=0:SA=1534:E1=PEEK(V+31)
  3. 25 FORTT=V+39TOV+46:POKETT,1:NEXT
  4. 30 FORP=0TO62:READD:POKE9600+P,D:NEXT
  5. 40 X0=30:X1=55:X2=90:X3=115:X4=150:X5=175:X6=210:X7=235
  6. 50 Y0=100:Y1=100:Y2=100:Y3=100:Y4=100:Y5=100:Y6=100:Y7=100
  7. 60 FORCC=2040TO2047:POKECC,150:NEXT
  8. 70 POKEV,X0:POKEV+1,Y0:POKEV+2,X1:POKEV+3,Y1:POKEV+4,X2:POKEV+5,Y2
  9. 75 POKEV+6,X3:POKEV+7,Y3:POKEV+8,X4:POKEV+9,Y4:POKEV+10,X5:POKEV+11,Y5
  10. 80 POKEV+12,X6:POKEV+13,Y6:POKEV+14,X7:POKEV+15,Y7
  11. 81 TI$="000000"
  12. 85 L=L+1:PRINT"LEVEL: "L:NS=0
  13. 86 IFL>10THEN300
  14. 87 FORPP=1504TO1534:POKEPP,32:POKEPP+54272,1:NEXT
  15. 90 GOSUB200:GOSUB120:IFNS=1THEN85
  16. 109 GOSUB700:FORTT=1TO250:NEXT:GOSUB800
  17. 110 IFDF=0THENPOKEV+1,100
  18. 111 IFDF=1THENPOKEV+3,100
  19. 112 IFDF=2THENPOKEV+5,100
  20. 113 IFDF=3THENPOKEV+7,100
  21. 114 IFDF=4THENPOKEV+9,100
  22. 115 IFDF=5THENPOKEV+11,100
  23. 116 IFDF=6THENPOKEV+13,100
  24. 117 IFDF=7THENPOKEV+15,100
  25. 119 GOTO90
  26. 120 GETA$:IFA$=""THENRETURN
  27. 125 POKESA,81:POKESA+3,32:POKESA-3,32
  28. 130 IFA$=","THENSA=SA-3
  29. 131 IFSA=<1505THENSA=1534:NS=1:RETURN
  30. 135 IFA$="."THENSA=SA+3:IFSA>1534THENSA=1534
  31. 136 POKESA,81:POKESA+3,32:POKESA-3,32
  32. 150 RETURN
  33. 200 CV=CV+L:IFCV<5THENRETURN
  34. 201 CV=0
  35. 202 DF=INT(RND(0)*(30-L))
  36. 203 IFDF=0THENPOKEV+1,115
  37. 204 IFDF=1THENPOKEV+3,115
  38. 205 IFDF=2THENPOKEV+5,115
  39. 206 IFDF=3THENPOKEV+7,115
  40. 207 IFDF=4THENPOKEV+9,115
  41. 208 IFDF=5THENPOKEV+11,115
  42. 209 IFDF=6THENPOKEV+13,115
  43. 210 IFDF=7THENPOKEV+15,115
  44. 211 IFPEEK(V+31)<>0THENGOTO600
  45. 215 RETURN
  46. 300 PRINT"[147]":ET$=TI$
  47. 310 PRINT:PRINT:PRINT:EH$=LEFT$(ET$,2):EM$=MID$(ET$,3,2):ES$=RIGHT$(ET$,2)
  48. 320 PRINT"    YOU'VE COMPLETED THE RUN IN:":PRINT
  49. 330 PRINTTAB(13);EH$;":";EM$;":";ES$
  50. 340 STOP
  51. 500 RETURN
  52. 600 POKESA,100:POKESD+1,2:POKESD,155:POKESD+4,33
  53. 605 POKEV+21,0:PRINT"YOU'VE BEEN SQUASHED!"
  54. 610 PRINT"LAST LEVEL COMPLETED:";L-1
  55. 615 POKESD+4,32:FORTT=1TO2500:NEXT
  56. 620 GETA$:IFA$=""THEN620
  57. 630 CLR:RUN
  58. 700 IFDF=0THENPOKEV+1,130:GOSUB900
  59. 701 IFDF=1THENPOKEV+3,130:GOSUB900
  60. 702 IFDF=2THENPOKEV+5,130:GOSUB900
  61. 703 IFDF=3THENPOKEV+7,130:GOSUB900
  62. 704 IFDF=4THENPOKEV+9,130:GOSUB900
  63. 705 IFDF=5THENPOKEV+11,130:GOSUB900
  64. 706 IFDF=6THENPOKEV+13,130:GOSUB900
  65. 707 IFDF=7THENPOKEV+15,130:GOSUB900
  66. 708 IFPEEK(V+31)<>0THEN600
  67. 710 RETURN
  68. 800 IFDF=0THENPOKEV+1,115
  69. 801 IFDF=1THENPOKEV+3,115
  70. 802 IFDF=2THENPOKEV+5,115
  71. 803 IFDF=3THENPOKEV+7,115
  72. 804 IFDF=4THENPOKEV+9,115
  73. 805 IFDF=5THENPOKEV+11,115
  74. 806 IFDF=6THENPOKEV+13,115
  75. 807 IFDF=7THENPOKEV+15,115
  76. 810 RETURN
  77. 900 SD=54272:POKESD+4,129
  78. 910 FORSL=1TO150-(L*10):NEXT
  79. 920 POKESD+4,128
  80. 930 RETURN
  81. 1000 REM
  82. 1010 SD=54272:POKESD+24,15
  83. 1020 POKESD+5,0:POKESD+6,251
  84. 1030 POKESD+1,6:POKESD,6
  85. 1040 RETURN
  86. 9130 DATA0,2,254,0,3,254,0,2,254
  87. 9140 DATA0,3,254,0,2,254,0,3,254
  88. 9150 DATA0,2,254,0,3,254,0,2,254
  89. 9160 DATA0,3,250,0,5,250,0,15,250
  90. 9170 DATA0,23,251,60,63,251,102,95,249
  91. 9180 DATA123,255,253,127,255,253,255,255,253
  92. 9190 DATA255,252,255,255,240,255,255,192,254
  93.